import Control.Monad

hello_worlds n = mapM putStrLn (list n)
    where list :: Int -> [String]
          list 0 = []
          list x = "Hello World" : list (x - 1)
main = do
   n <- readLn
   hello_worlds n
